﻿Public Class Settings
    Dim selected As String = "per"    

    Private Sub Settings_Load(sender As Object, e As EventArgs) Handles MyBase.Load        
        Panel1.Width = (My.Computer.Screen.Bounds.Width / 2) - 83
        Personalize1.Width = My.Computer.Screen.WorkingArea.Width - Panel1.Width
    End Sub

    Private Sub Panel5_MouseDown(sender As Object, e As MouseEventArgs) Handles Panel5.MouseDown, img_general.MouseDown
        Panel5.BackColor = Color.FromArgb(0, 216, 204)
        img_general.Image = My.Resources.general_selected
        personalize.BackColor = Color.FromArgb(244, 244, 244)
        img_personalize.Image = My.Resources.personalize_unselected
        selected = "gen"


        Personalize1.Visible = False        
        newGeneral.Visible = True        
    End Sub

    Private Sub Panel5_MouseEnter() Handles Panel5.MouseEnter, img_general.MouseEnter
        If selected = "per" Then
            Panel5.BackColor = Color.FromArgb(222, 222, 222)
            img_general.Image = My.Resources.general_hover
        End If
    End Sub

    Private Sub Panel5_MouseLeave(sender As Object, e As EventArgs) Handles Panel5.MouseLeave, img_general.MouseLeave
        If selected = "per" Then
            Panel5.BackColor = Color.FromArgb(244, 244, 244)
            img_general.Image = My.Resources.general_unselected
        End If
    End Sub




    Private Sub personalize_MouseDown(sender As Object, e As MouseEventArgs) Handles personalize.MouseDown, img_personalize.MouseDown
        personalize.BackColor = Color.FromArgb(0, 216, 204)
        img_personalize.Image = My.Resources.personalize
        Panel5.BackColor = Color.FromArgb(244, 244, 244)
        img_general.Image = My.Resources.general_unselected
        selected = "per"


        Personalize1.Visible = True
        newGeneral.Visible = False
    End Sub

    Private Sub personalize_MouseEnter() Handles img_personalize.MouseEnter, personalize.MouseEnter
        If selected = "gen" Then
            personalize.BackColor = Color.FromArgb(222, 222, 222)
            img_personalize.Image = My.Resources.personalize_hover
        End If
    End Sub

    Private Sub personalize_MouseLeave(sender As Object, e As EventArgs) Handles personalize.MouseLeave, img_personalize.MouseLeave
        If selected = "gen" Then
            personalize.BackColor = Color.FromArgb(244, 244, 244)
            img_personalize.Image = My.Resources.personalize_unselected
        End If
    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
        Form1.Location = New Point(0, 0)
        Form1.TopMostTimer.Start()
        Me.Close()
    End Sub
End Class